home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / boot / czesc_2 / popper / sources / popper.asm < prev    next >
Assembly Source File  |  1993-12-12  |  970b  |  40 lines
  1.     section text,code
  2.  
  3. PopAll          equ -$fc
  4. Wait            equ -$13e
  5. OpenLibrary     equ -$228
  6. CloseLibrary    equ -$19e
  7.  
  8. start:
  9.     move.l  4,a6                ; get exec.library
  10.     lea     PPName(PC),a1       ; get popper.library
  11.     moveq.l #0,d0               ; any version
  12.     jsr     OpenLibrary(a6)     ;
  13.     move.l  d0,d6               ; verify we have the library
  14.     beq     byebye              ;
  15.  
  16.     move.l  d6,a6               ; Pop all
  17.     moveq.l #1,d0               ;
  18.     jsr     PopAll(a6)          ;
  19.  
  20.     move.l  4,a6                ; wait for Ctrl-C
  21.     moveq.l #0,d0               ;
  22.     bset.l  #12,d0              ;
  23.     jsr     Wait(a6)            ;
  24.  
  25.     move.l  d6,a6               ; Pop not
  26.     moveq.l #0,d0               ;
  27.     jsr     PopAll(a6)          ;
  28.  
  29.     move.l  4,a6                ; close newgad
  30.     move.l  d6,a1               ;
  31.     jsr     CloseLibrary(a6)    ;
  32.  
  33. byebye:
  34.     rts
  35.  
  36. PPName:
  37.     dc.b    'popper.library',0
  38.  
  39.     end
  40.